home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok15.lha / Seafarers_Manual / Source / Main.mod < prev    next >
Text File  |  1993-08-15  |  751b  |  38 lines
  1. MODULE Main;   (* Demonstrate use of duplicate identifiers *)
  2.  
  3.   (* From the book "Modula-2  A Seafarer's Manual and Shipyard Guide" *)
  4.   (* Page 105   adapted "Amiga M2Modula-2"   08 Mar 1988 *)
  5.  
  6. FROM InOut IMPORT WriteLn,
  7.                   WriteString,
  8.                   WriteInt;
  9.  
  10. VAR
  11.   i : INTEGER;
  12.   
  13. PROCEDURE DisplayLocali;
  14.   VAR
  15.     i : INTEGER;
  16.   BEGIN
  17.     i := 2;        (* effects i only within this procedure *)
  18.     WriteString ("local i = ");
  19.     WriteInt (i,5);
  20.   END DisplayLocali;
  21.   
  22. BEGIN
  23.   i := 1;
  24.   
  25.   WriteLn;
  26.   WriteString ("before procedure call, main i = ");
  27.   WriteInt (i,5);
  28.   WriteLn;
  29.   
  30.   DisplayLocali;    (* call procedure *)
  31.   
  32.   WriteLn;
  33.   WriteString ("after procedure call, main i = ");
  34.   WriteInt (i,5);
  35.   WriteLn;
  36.  
  37. END Main.
  38.